x <- as.integer(readline("Bitte die erste Zahl eingeben: "))
y <- as.integer(readline("Bitte die zweite Zahl eingeben: "))
z <- as.integer(readline("Bitte die dritte Zahl eingeben: "))

min <- x
max <- y
if (y < x) {
  min <- y
  max <- x
}

if (z < min) {
  min <- z
}

if (z > max) {
  max <- z
}

print(paste("Das Minimum lautet:",min))
print(paste("Das Maximum lautet:",max))
